SUBROUTINE DELETE
	IMPLICIT INTEGER(A-Q,S-Z)
	COMMON/DL/X22,SAVER,NAME /XRN/RN(1)
	COMMON R2,JA,CENTR,J2,RJQ(20),JQ(15),R6,DEL,X,JY,K
	COMMON/PTR/PWDS(1) /LIMIT/LIM,ITEM,L,I,IX
	1 /DPY/ST(4000),MEDIT,IGO  /DPTR/WDS(350)
	EQUIVALENCE (ST2,ST(2))
    	IX=I
	L=RN(MEDIT)+3
C  SIZE OF DELETION
	I=IX-L
	CALL LOOP(MEDIT,I,1,0,L,RN)
	JY=WDS(X22+1)-WDS(X22)
	CALL LOOP(WDS(X22)+2,WDS(ITEM),1,0,JY,ST)
	K=X22
194	 N=K+1
	WDS(N)=WDS(N+1)-JY
	PWDS(K)=PWDS(N)-L
	K=N
	IF(K.LT.ITEM)GO TO 194
C  ABOVE RESHUFFLES POINTER ARRAYS. X=ITEM+1
	ITEM=ITEM-1
	IF(X22.GT.ITEM)X22=ITEM
	J2=ITEM
	ITEM=ITEM-1
	ST2=WDS(J2)
271	CALL DPYNEW
	END